home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tphide.zip
/
HIDDEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
503b
|
24 lines
program Hidden ;
{ Lists hidden files or subdirectories in the current directory }
uses Dos ;
var
THE_FILE : SEARCHREC ;
begin
writeln ('_____ Hidden Files _____ Andy Moore _____') ;
writeln ;
FindFirst('*.*',ANYFILE,THE_FILE) ;
while DosError = 0 do
begin
if (THE_FILE.ATTR and DOS.HIDDEN) <> 0 then
begin
write(THE_FILE.NAME) ;
if (THE_FILE.ATTR and DOS.DIRECTORY) <> 0 then write('\') ;
writeln ;
end ;
FindNext(THE_FILE) ;
end ;
end.